|
|
|
|
|
|
|
Private Const IDI HAND = 32513&
Private Const IDI_QUESTION = 32514&
Private Const IDI EXCLAMATION = 32515&
Private Const IDI ASTERISK = 32516&
Private Const IDI_WINLOGO = 32517&
Private m_IconID As Long
Private Sub Form_Load()
m_IconID = IDI_APPLICATION
End Sub
Private Sub optIcon_Click(Index As Integer)
Select Case Index
Case 0
m_IconID = IDI_APPLICATION
Case 1
m_IconID = IDI_ASTERISK
Case 2
m_IconID = IDI_EXCLAMATION
Case 3
m_IconID = IDI_HAND
Case 4
m_IconID = IDI_QUESTION
Case 5
m_IconID = IDI_WINLOGO End Select
Picturel.Refresh
End Sub
Private Sub Picturel_Paint()
Dim iconhandle As Long
iconhandle = LoadIcon(0, m_IconID)
If iconhandle = 0 Then
MsgBox GetErrorString(Err.LastDllError)
Else
Call DrawIcon(Picturel.hdc, 0, 0, iconhandle)
End If
End Sub |
|
|
|
|
|
|
|
|
No icon is displayed. Need I say more? |
|
|
|
|
|